Excel应用 |
您所在的位置：网站首页 › vba 图表 刷新 › Excel应用 |
Excel应用
|
深夜，没有睡意。因为，再次发现VBA的魅力。 给出一组数据，如下：
可以绘制多少种Excel图表呢？ 答案是以下70多种（Excel 2016实测）：
这效果绝对炫酷，熬夜也值了。
以上Excel图表类型见下表，
VBA代码共享给有缘人： Public Sub MonthlyCalc() Application.ScreenUpdating = False '定义用于循环的整型变量 Dim Itemp As Integer Dim ChartTypeArray() As Variant Dim ChartCount As Integer For Itemp = 1 To 12 '计算商品（甲）的销售额合计 Cells(4, Itemp + 2) = Cells(2, Itemp + 2) * Cells(3, Itemp + 2) '计算商品（乙）的销售额合计 Cells(7, Itemp + 2) = Cells(5, Itemp + 2) * Cells(6, Itemp + 2) '计算商品（丙）的销售额合计 Cells(10, Itemp + 2) = Cells(8, Itemp + 2) * Cells(9, Itemp + 2) '计算三种商品总的销售额合计 Cells(11, Itemp + 2) = Cells(4, Itemp + 2) + Cells(7, Itemp + 2) _ + Cells(10, Itemp + 2) Next Itemp 'ChartTypeArray = Array(xlLineMarkers, xlLineMarkersStacked, xlLineMarkersStacked100) 'ChartTypeArray = Array(63, 64, 65, 66, 67) '88, 89, 90, 91 excluded 'ChartTypeArray = Array(-4169, -4151, -4120, -4102, -4101, -4100, -4098, 1, 4, 5, 15, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87) 'ChartTypeArray = Array(92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112) ChartTypeArray = Array(-4169, -4151, -4120, -4102, -4101, -4100, -4098, 1, 4, 5, 15, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, _ 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, _ 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112) ChartCount = 1 Do While (ChartCount |
【本文地址】